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LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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MODULE LIBSSYS_FAOL ( 
IDENT = '1-009° ! File: LIBFAOL.B32 EDIT RKR1009 
) = 


UPWwrn— 


BEGIN 


PITIIITILILIL ILI LL ILI L LLL LiLii LLL ili Lili iil 
'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


Hed rae hb IS Leela weet A ‘om AND MAY BE USED AND gh he 


Sssssssss 
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: NC ON OF Ne 0 cE . SOF TWARE 
:* COPIES THEREOF 4 NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i: vaunereante” O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
» aeokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: General Library Support 
ABSTRACT: 


This routine calls SFAOL for the caller, feoprecss the 
agg ee oteine using the semantics of the caller's string. 
The Length of the resultant string is Limited to 256 bytes max and 
truncation may occur. 


SsSssosooooeees 


COOoOoooooooo 


ENVIRONMENT: VAX-11 User Mode 

AUTHOR: R. Reichert, CREATION DATE: 20-SEPT-1979 

MODIFIED BY: 

1-8 1 = Original. RKR 20-SEPT-1979 

1- § Change gene to LIBSSYS_FAOL. RKR 15-OCT-1979 

1-005 - change togi So for status returned. Improve comments. 
1-004 - forrest. case. where Pl is an actual parameter of value 0. 
1-308 - Improve description of routine. RKR 1-NOV-79 


SS3SSsSs 
FRR Ft at et ee 
NOUS — 


o 


oO 
PAPAS 


1- - Change STR$ codes to LIBS codes. RKR 22-JAN-80 
1- - Enhance to recognize additional classes of string descriptors 


NAAR WN 0 ODA UE WN 0 OD NOU EWN 0 ODNOAU EWN SQ OOONOU EWN OOONOUES WN 
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Be Se Se Se Be Se Ge Se Se Se Se Se Fe Se Se Se Se Se Se Se Fe Fe Se Ge Se Se Be Oe Be Se Oe Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se FH SH Se SH oe BH SH ae 
PR BBB BEE EB WWIII NII AI Ua no nono POPONUPONY 2 2 2 SO OS Oo 


NOUS WO 


So 


L IBSSVS_F AOL 


AAASSSVTSLLZ 


; 


et 2 6 2 a ss ts 


' oF out fie toby wey $s getting ata into {ntecnel ne and 

: baciiee rep o8 to deliver to caller's bu 

: ESC Ra is weed to oy the mp ve of bytes 
! vieshs te sted after the copy y operat complet 

: ones 0 yee LIBSSCOPY =RxDX instead of STR COPY. DX. This 
' s having to change STR$ statuses to LIB$ statuses and 
! el : nates need for a Bd, 

KR 29-MA 
! 

' 

! 

! 

' 


i 1-008 - Add s spec iel-case code to greceys = string cf fott=i9et that 
: “read Like fixed S striss descripto 4 Me 

Dame ke CTSSANACY 5b. ; fron, apg oe road in 3 fBsscopy. R_DX6. 
} 2. Do n n 

RKR AB-NOVETOBT copying us fg 
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LIBSSYS_FAOL 


75 
i SWITCHES: 
fi : 
7 SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
0 ' 
: 0 i LINKAGES: 
5 REQUIRE "RTLIN: STRLNK'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


EXTERNAL REFERENCES: 


VRE WN OC OONOUE WN O O@NIAUO NOUS WN HOOF OOONOUE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
- 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: EXTERNAL ROUTINE 
1 
1 
1 
1 


4! LIBSSYS_FAOL; ! Formated ASCII output 

4g ! 

94 ' INCLUDE FILES: 

95 ! 

$7 8 REQUIRE ‘RTLIN:RILPSECT’; ! Macros for defining psects 

190 0 LIBRARY ‘RTLSTARLE'; ! System symbols and macros 

101 . 

oe 0 ' MACROS: 

10 3 ! 

104 3 : NONE 

105 3 ! 

198 ! EQUATED SYMBOLS: 

10 0 ! 

108 LITERAL 

4 4 LOCAL_BUF _SIZE = 256 ; 

iW ; : PSECTS: 

11§ DECLARE _PSECTS (L1B); ! Declare psects for LIBS facility 

115 i OWN STORAGE: 

116 : 

117 $ NONE 

118 $ 

11 : 

120 ! 

: 1 

1 ¢ 400 LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, ! Extract Length 
124 Bt !' and address of 
125 § ' Ist data byte 
1 $ 40 ; ! from descriptor 
1 04 LIBSSCOPY_R_DX6 : STRING_JSB;! Copy string 


Page 
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10 
gga IECRSHBHs QG:SL:RE WMaNT SRNR adc? 


OUTLEN.ww.r poll 9 word in which to store output string 
en 
(Optional parameter) 


wr 


OUTBUF .wt.dx addr of output buffer string descriptor 


9 GLOBAL ROUTINE LIBSSYS_FAOL ( ! Formated ASCII output 
1 
§ CTRSTR, ! addr of string desc. for ASCII control string 
OUTLEN, ! addr of word in which to store output string 
5 ! Length (Optional) 
i OUTBUF , ! addr of output buffer string descriptor 
, PRMLST addr of List of longword parameters 
1 i For additional description of parameters, 
§ see SFAOL documentation. 
4 ; Y:s 
5 
$ 'o¢ 
Hs FUNCTIONAL DESCRIPTION: 
9 i This routine calls $FAOL for the caller, returning the 
0 ! foeutting string using the semantics of the caller's string. 
1 ! The Length of the resultant string is Limited to 256 bytes max and 
; } truncation may occur. 
: See SFAOL description 
$ FORMAL PARAMETERS: 
g CTRSTR.rt.dx addr of string desc. for ASCII control string 
i 
i 
i 
i 
i 


PRMLST.ra.?? addr of a List of longword parameters 
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1 


68 i For additional description of parameters, 

9 45 !' see SFAOL documentation. 
0 103 ‘ 
g rk i IMPLICIT INPUTS: 
4 0450 ! 
5 tt NONE 
$ re i IMPLICIT OUTPUTS: 
454 : 

$2? : NONE 
1 43 COMPLETION CODES: 

35 i $S$$_NORMAL Procedure successfully completed 
460 ' From LIBSSCOPY_R_DX6 
461 : L1B$_STRTRO Success, but source string truncated 
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5 a a 


PROPPROPOPOPOPOPOPOPONONINUPPORONONONOPUPOPOPOPPPPUPOPUPINIPUPIPUPIPUNINUINIIN 2 = 


—O st) —  —) _d _d —) —) 2 4 2 


Moronononorororor 
REA LSSS NEAR SOBNOAE VOSS ISA RW OO SR VERE IO ODODE 


ARAnv—S 


wvVvVvVVvIUU 


PUPP AAI 


— ss 
DWNOWS WO 0@ 


14-Sep- 


LIBS_INSVIRMEM Insuf {cieng virtual memory 
LIBS_INVSTRDES Invalid otra ng deecriptor 
LIBS_INVARG Invalid or pers * usually unsupported class 
of descripto 
From ant 
SS$_BUF FEROVF string over completed, but formatted output 


ng over ee the output buffer and has 

peer runcated 

S$S$_BADPARAM An invalid Trective was specified in the FAO 
control string. 


SIDE EFFECTS: 


BEGIN 
BUILTIN 
ACTUALCOU 
NULLPARAMETER 
ACTUALPARAMETER ; 
Atopy STATUS, tp te from copy OP eperytren 
s from $ Lt 


STR_STATUS, 
LOCAL_BUFF : VECTOR ChOCAL BU Bur suit; “BYTES ' Local buffer 
BUFFER_DESC : BLOCK ' descr for local buffer 


P 
OUTBUF : REF BLOCK K C,BYTE) , 
OUTLEN : REF VECTOR (,wORD]'; 


'¢ 


i Construct a static descriptor to receive the data from the system 


3 
i service call 
BUFFER_DESC CDSCS$SW_LENGTH] = LOCAL_BUF Size; 
BUF FER-DESC pscse pyre) = DSCSK_BTYPE_T 
BUFFER-DESC (CDSCS$B_CLASSJ = DSCSK-CLASS’S 
BUFFER-DESC COSCSA_POINTER] = LOCAL_BUF FF; 


'¢ 
i Call SFAOL using the appropriate combination of caller's 
‘ parameters, default parameters and local variables 


STR_STATUS = SFAOL ( 
CTRSTR = PARAMETER(1), 
OUTLEN = DESC, 
= 
= 


OUTBUF 


“DESC 
PRMLST CTUALCOUNT() LSSU 4) 


CTUALPARAMETER(4) ) 


'¢ 
! Copy internal buffer to caller's buffer, Letting LIBSSCOPY_R_Dx6 


IgcBen 1984 19:38:28 EMarte®sacSiternoc ase 
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IBSSYS_F AOL 18-50 Sep-1984 1:3 AX-11 Bliss-32 V4.0-742 Page 6 

41888 ta Pi 99: 38; if LIBRTL.SRC i FAOL .832;1 . (3) | 

H worry about its semantics. | 

COPY_STATUS = LIBSSCOPY_R_DX6 (. td EF: f 
So 


: "i caller supplied eetvenes - th foreneter Tr it. | 
' To do this ig oy need to inspe saul ting de Sooertyeer 

i as it appears after the copy. Get L BiSkatvie “SDESC R 

' No need to check LIBSANA SDESC_R2 status. “If OUTBUF a, 4.3 
! was bad, LIBSSCOPY_R_Dx6 voutd have told us Ma it. 


IF (NOT NULLPARAMETER(2)) 
THEN 
oceis 
OUTBUF _LEN ! No. of bytes delivered to caller 
OUTBUF ~ADDR; Address of 1st data byte of callers 


buffer 
IF .OUTBUF CoscsB_ CLASS] GTRU DSCSK CLASS_D 
THEN !“Used generalized Tength extraction 


} 

} 
BEGIN | 
LIBSANALYZE_SDESC_R2 ( .OUTBUF ; OUTBUF_LEN, OUTBUF_ADDR ); 

| 


ELSE ! Fetch length directly 
OUTBUF_LEN = .OUTBUF CDSCSW_LENGTH) ; 
ne CO] = MIN (.BUFFER_DESC CDSCSW_LENGTH], .OUTBUF_LEN) ; 


SPREE EE EE F&F MW NII PIPIPINIPONNON 


Be Se Ge Se Ge Se Ge Se Se Se Fe Se Se Fe Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Ge Sse Se Se Se SF SH Se Se Se Se Se ae 
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-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


O1FC B00 08 -ENTRY Liss ts he's Save R2,R3,R4,R5,R6,R7,RB ; 0405 
5E FEFC CE 9€ 0000 MOVAB 60(SPT, : 


5 

5 '¢ 

5 i at this point we have 2 statuses that we could return to caller. 

: j Deteraine which one is the ‘most meaningful". 

5 

5 wT original SFAOL call failed, tell him about that 

H 2 else give him the copy status. 

5 if NOT «STR STATUS THEN RETURN (.STR_STATUS) 

° ELSE RETURN ( (COPY. STATUS) ; 

6 END; ! end of LIBSSYS_FAOL | 
-TITLE LIBSSYS_FAOL | 
“IDENT \1-009\ | 
.EXTRN LIBSANA ¥2E_SDESC R2 
-EXTRN LIBSSCOPY_R- 
-EXTRN SYSSFA | 

| 


| 1BSSVS_F AOL 

Ae wreeores +4 

04 C 
i 

10 AC 

4 AE 

SM 

4 AC 

000000006 ; 9 
0 
oc as 

2 5 

1 04 AE 

50 
000000006 06 
53 

02 +4 
08 A 

2 
02 03 A? 
50 9 
000000006 03 
ae 
i.e. 

50 3i 

08 BC 50 
4 23 

0 5 

50 53 


; Routine Size: 128 bytes, 


87 0563 1 
88 b20¢ 1 END 
89 565 1 
90 0566 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
_LIBSCODE 128 NOVEC,NOWRT, 


SOVOOMNDS —9OUW 9 0" 9 09 WOO CO 79 OOO 9 ~~ 000 


FO FODWOOM 099 $$ POD "WII 8 SOF OOOO 2489 MNO 


000 


Routine Base: _LIBSCODE + 0000 
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AAEMAMAMNVIN E & 


rw 
ad td 
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COCOCOCoCOoOO 


PUSHL 
MOVAB 


1 Oh leans Vv 
TL. SRCILIBFA 


76 
yFF BUF FER_DESC+4 


H 10 nen Getic? 
pa aets 90: 3aia8 
#176949 
OCAL_B 
AP), "a 


AX- 
LIB 


1 
R 


R7, RO 
LIBSANALYZE_SDESC_R2 


OUTBUF _LEN 
ER DESC, RO 
OuTBUF _CEN 


ie 
i 


! end of module LIBSSYS_FAOL 


Attributes 


EXE, 


SHR, 


LCL, 


REL, 


OTLEN 
STR_STATUS, 7$ 
STR-STATUS, RO 


COPY_STATUS, RO 


CON, 


OUTBUF LEN, RO 
a0 


PIC, ALIGN(2) 


4.0-742 
OL.832;1 
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Library Statistics 


cocesese Syabel§ cocccere Pages Processing 
File Total Loaded Percent Mapped Time 
-$255S$DUA28: CSYSLIBISTARLET.L32;1 9776 10 0 581 00:00.7 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBFAOL/OBJ=0BJ$:LIBFAOL MSRC$:LIBFAOL/UPDATE=(ENH$:LIBFAOL) 
Size: 128 code + 0 data bytes 
Time: 4.3 


me: 704. 
Elapsed Time: 00:18.0 
Lines/CPU Min: 7842 
povenee/LPy-fie: 33090 

rome | Used: 72 pages 
Compilation Complete 
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